home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / ImageConvert / TestIt.mod < prev    next >
Text File  |  1993-08-15  |  1KB  |  44 lines
  1. MODULE TestIt;
  2.  
  3. FROM SYSTEM      IMPORT ADR;
  4. FROM Arts        IMPORT TermProcedure, Assert;
  5. FROM Dos         IMPORT Delay;
  6. FROM BrushData   IMPORT Gadget, GadgetCol;
  7. FROM IntuiStruct IMPORT StructScreen;
  8. FROM Graphics    IMPORT ViewModeSet, ViewModes, LoadRGB4;
  9. FROM Intuition   IMPORT OpenScreen, CloseScreen, DrawImage, NewScreen,
  10.                         ScreenPtr, customScreen, MakeScreen;
  11.  
  12. VAR NewScr : NewScreen;
  13.     MyScr  : ScreenPtr;
  14.  
  15. PROCEDURE CleanUp;
  16.  
  17. BEGIN
  18.    IF MyScr # NIL THEN
  19.       CloseScreen (MyScr);
  20.       MyScr := NIL;
  21.    END; (* IF *)
  22. END CleanUp;
  23.  
  24.  
  25. BEGIN
  26.    TermProcedure (CleanUp);
  27.  
  28.    (* Screen auf! *)
  29.    StructScreen (NewScr, 3, 0, 1, ViewModeSet{}, customScreen,
  30.                  ADR ("Hallo Inspector!!!"));
  31.    MyScr := OpenScreen (NewScr);
  32.    Assert (MyScr # NIL, ADR ("Screen klemmt!"));
  33.  
  34.    (* Farben setzen! *)
  35.    LoadRGB4 (ADR (MyScr^.viewPort), GadgetCol.colorTable, GadgetCol.count);
  36.    MakeScreen (MyScr);
  37.  
  38.    (* Malen! *)
  39.    DrawImage (ADR (MyScr^.rastPort), ADR (Gadget), 50, 50);
  40.  
  41.    (* Warten... *)
  42.    Delay (5 * 50);
  43. END TestIt.
  44.